Pascal Super Library/Pascal Super Library (CW International)(1997).bin/LIBRARY/CMPLTPAS/ISWHITE.PAS

Pascal/Delphi Source File | 1988-12-15 | 149b | 9 lines

FUNCTION IsWhite(Ch : Char) : Boolean;

CONST
  Whitespace : SET OF Char = [#8,#10,#12,#13,' '];

BEGIN
  IsWhite :=  Ch IN Whitespace
END;